ncErrorHandler Subroutine

public subroutine ncErrorHandler(errcode)

Handle errors from netcdf related operation

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=short),	intent(in)			::	errcode

Source Code

SUBROUTINE ncErrorHandler &
!
(errcode)

IMPLICIT NONE

! Local scalars:
INTEGER (KIND = short), INTENT (IN) :: errcode
!------------end of declaration------------------------------------------------

IF (errcode /= nf90_noerr) THEN
  CALL Catch ('error', 'GridLib',  &
  TRIM (nf90_strerror (errcode) ),  &
  code = ncIOError                   )
ENDIF

END SUBROUTINE ncErrorHandler